home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Util / Commodities / CatchDisk1_20.lha / CatchDisk / italiano / Installa < prev    next >
Text File  |  1994-04-24  |  3KB  |  112 lines
  1. ; Programma di installazione per l' Installer standard Commodore
  2.  
  3. (set local-help (cat "Scegliendo \"Sì\" tutti i messaggi di CatchDisk saranno"
  4.                      " tradotti in italiano.\nScegliendo \"No\", i messaggi"
  5.                      " saranno in inglese.\nNotate che la vostra lingua di"
  6.                      " sistema deve essere l'italiano, altrimenti CatchDisk"
  7.                      " continuerà ad essere in inglese."))
  8.  
  9. (complete 0)
  10.  
  11. (if (exists "L:WBStart-Handler")
  12.     ((set ver (/ (getversion "L:WBStart-Handler") 65536))
  13.      (set rev (- (getversion "L:WBStart-Handler") (* 65536 ver)))
  14.      (if (< ver 2)
  15.          (if (< rev 4)
  16.              (message (cat "Attenzione: dovete installare WBStart-Handler "
  17.                         "versione 1.4 o successiva per potere utilizzare "
  18.                         "CatchDisk (vedi il file 'Leggimi').")
  19.              )
  20.          )
  21.      )
  22.     )
  23.     (message (cat "Attenzione: dovete installare WBStart-Handler "
  24.                "versione 1.4 o successiva per potere utilizzare "
  25.                "CatchDisk (vedi il file 'Leggimi').")
  26.     )
  27. )
  28.  
  29. (set name
  30.     (askdir
  31.         (prompt "Dove volete installare CatchDisk ?")
  32.         (help @askdir-help)
  33.         (default "SYS:WBStartup")
  34.     )
  35. )
  36.  
  37. (set @default-dest name)
  38.  
  39. (if (exists (tackon name "CatchDisk.info"))
  40.     (message (cat "Attenzione: i tooltype della vecchia versione verranno "
  41.                 "persi: ricordatevi di salvarli prima di proseguire.")
  42.     )
  43. )
  44.  
  45. (set vernum (/ (getversion) 65536))   ; se version >37: c'è localizzazione
  46.  
  47. (if (> vernum 37)
  48.     (set local
  49.         (askbool
  50.             (prompt "Volete installare il file di supporto per la lingua italiana ?")
  51.             (help local-help)
  52.             (choices "Sì" "No")
  53.             (default 1)
  54.         )
  55.     )
  56.     (set local 0)
  57. )
  58.  
  59. (if local
  60.     (if (and (= @user-level 2) (exists "LOCALE:catalogs/italiano"))
  61.         (set sysdest
  62.             (askchoice
  63.                 (prompt "Dove volete installare il file di localizzazione ?")
  64.                 (help @askchoice-help)
  65.                 (choices "nello stesso cassetto di CatchDisk" "in LOCALE:")
  66.                 (default 1)
  67.             )
  68.         )
  69.         (if (= name "SYS:WBStartup")
  70.             (set sysdest 1)
  71.             (set sysdest 0)
  72.         )
  73.     )
  74. )
  75.  
  76. (if (not (exists "LOCALE:catalogs/italiano"))
  77.     (set sysdest 0)
  78. )
  79.  
  80. (complete 50)
  81.  
  82. (copyfiles
  83.     (infos)
  84.     (source "/CatchDisk")
  85.     (dest name)
  86. )
  87.  
  88. (tooltype
  89.     (dest (tackon name "CatchDisk"))
  90.     (noposition)
  91. )
  92.  
  93. (complete 80)
  94.  
  95. (if local
  96.      (if sysdest
  97.         (copyfiles
  98.             (source "/catalogs/italiano/CatchDisk.catalog")
  99.             (dest "LOCALE:catalogs/italiano")
  100.         )
  101.         (
  102.             (makedir (tackon name "catalogs"))
  103.             (copyfiles
  104.                 (source "/catalogs/italiano/CatchDisk.catalog")
  105.                 (dest (tackon name "catalogs/italiano"))
  106.             )
  107.         )
  108.     )                    
  109. )
  110.  
  111. (complete 100)
  112.